home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -seriously_amiga- / sound / amtaged / install_amtaged < prev    next >
Text File  |  1998-06-22  |  4KB  |  205 lines
  1. ; Install script for AmTagEd
  2. ;
  3. ; Copyright © 1998 Kimmo Palosaari
  4. ;
  5. ; $VER: Install-AmTagEd 1.1 (16.3.98)
  6. ;
  7.  
  8. (set @default-dest "SYS:Tools")
  9.  
  10. (procedure CopyLibs #srcdir #srcname #dstdir
  11.  
  12.     (copylib
  13.         (prompt "Copying " #srcname "...")
  14.         (help @copylib-help)
  15.         (source (tackon #srcdir #srcname))
  16.         (dest #dstdir)
  17.         (optional "force" "askuser")
  18.         (confirm "expert")
  19.     )
  20. )
  21.  
  22. (complete 0)
  23.  
  24. (message
  25.     "\nAmTagEd 1.1\n\n"
  26.     "Copyright © 1998 Kimmo Palosaari\n\n\n"
  27.     "This script will install AmTagEd\n"
  28.     "and required libraries."
  29. )
  30.  
  31. (set @default-dest
  32.     (askdir
  33.         (prompt "Select the destination directory for AmTagEd.\nA drawer will NOT be created.")
  34.         (help askdir-help)
  35.         (default @default-dest)
  36.     )
  37. )
  38.  
  39. (complete 10)
  40.  
  41. (set @copydoc
  42.     (askbool
  43.         (prompt "\nDo you want to copy the documentation file?")
  44.         (help askbool-help)
  45.         (default 1)
  46.     )
  47. )
  48.  
  49. (complete 20)
  50.  
  51. (if (= @copydoc 1)
  52.     (set @doc-dir
  53.         (askdir
  54.             (prompt "Select the destination directory for the documentation file.")
  55.             (help askdir-help)
  56.             (default @default-dest)
  57.         )
  58.     )
  59. )
  60.  
  61. (complete 30)
  62.  
  63. (set @icontype
  64.     (askchoice
  65.         (prompt "\nSelect what kind of icon you want to install")
  66.         (help askchoice-help)
  67.         (choices "No icon" "MagicWB" "NewIcon")
  68.         (default 1)
  69.     )
  70. )
  71.  
  72. (complete 40)
  73.  
  74. (if (or (= @icontype 1) (= @icontype 2))
  75. (
  76.     (run "Run >NIL: <NIL: SYS:Utilities/MultiView Icons/Icons.iff PORTNAME=AMTAGEDMULTIVIEW")
  77.  
  78.     (set @imagetype
  79.         (askchoice
  80.             (prompt "\nSelect which image you want for icon")
  81.             (help askchoice-help)
  82.             (choices "1" "2" "3")
  83.             (default 0)
  84.         )
  85.     )
  86.  
  87.     (rexx "quitmultiview.rexx")
  88. )
  89. )
  90.  
  91. (complete 50)
  92.  
  93. (copyfiles
  94.     (source "AmTagEd")
  95.     (help copyfiles-help)
  96.     (dest @default-dest)
  97. )
  98.  
  99. (if (= @copydoc 1)
  100. (
  101.     (copyfiles
  102.         (source "AmTagEd.guide")
  103.         (help copyfiles-help)
  104.         (dest @doc-dir)
  105.     )
  106.  
  107.     (if (= @icontype 1)
  108.         (copyfiles
  109.             (source "Icons/AmTagEd.guide.icon.info")
  110.             (help copyfiles-help)
  111.             (dest @doc-dir)
  112.             (newname "AmTagEd.guide.info")
  113.         )
  114.         (if (= @icontype 2)
  115.             (copyfiles
  116.                 (source "Icons/AmTagEd.guide.newicon.info")
  117.                 (help copyfiles-help)
  118.                 (dest @doc-dir)
  119.                 (newname "AmTagEd.guide.info")
  120.             )
  121.         )
  122.     )
  123. )
  124. )
  125.  
  126. (if (= @icontype 1)
  127.     (if (= @imagetype 0)
  128.         (copyfiles
  129.             (source "Icons/AmTagEd.icon1.info")
  130.             (help copyfiles-help)
  131.             (dest @default-dest)
  132.             (newname "AmTagEd.info")
  133.         )
  134.         (if (= @imagetype 1)
  135.             (copyfiles
  136.                 (source "Icons/AmTagEd.icon2.info")
  137.                 (help copyfiles-help)
  138.                 (dest @default-dest)
  139.                 (newname "AmTagEd.info")
  140.             )
  141.             (if (= @imagetype 2)
  142.                 (copyfiles
  143.                     (source "Icons/AmTagEd.icon3.info")
  144.                     (help copyfiles-help)
  145.                     (dest @default-dest)
  146.                     (newname "AmTagEd.info")
  147.                 )
  148.             )
  149.         )
  150.     )
  151. )
  152.  
  153. (if (= @icontype 2)
  154.     (if (= @imagetype 0)
  155.         (copyfiles
  156.             (source "Icons/AmTagEd.newicon1.info")
  157.             (help copyfiles-help)
  158.             (dest @default-dest)
  159.             (newname "AmTagEd.info")
  160.         )
  161.         (if (= @imagetype 1)
  162.             (copyfiles
  163.                 (source "Icons/AmTagEd.newicon2.info")
  164.                 (help copyfiles-help)
  165.                 (dest @default-dest)
  166.                 (newname "AmTagEd.info")
  167.             )
  168.             (if (= @imagetype 2)
  169.                 (copyfiles
  170.                     (source "Icons/AmTagEd.newicon3.info")
  171.                     (help copyfiles-help)
  172.                     (dest @default-dest)
  173.                     (newname "AmTagEd.info")
  174.                 )
  175.             )
  176.         )
  177.     )
  178. )
  179.  
  180. (CopyLibs "Libs/MUI" "NList.mcc" "MUI:Libs/MUI")
  181.  
  182. (complete 60)
  183.  
  184. (CopyLibs "Libs/MUI" "NListview.mcc" "MUI:Libs/MUI")
  185.  
  186. (complete 65)
  187.  
  188. (CopyLibs "Libs/MUI" "NListviews.mcp" "MUI:Libs/MUI")
  189.  
  190. (complete 70)
  191.  
  192. (CopyLibs "Libs/MUI" "BetterString.mcc" "MUI:Libs/MUI")
  193.  
  194. (complete 80)
  195.  
  196. (CopyLibs "Libs/MUI" "BetterString.mcp" "MUI:Libs/MUI")
  197.  
  198. (complete 90)
  199.  
  200. (CopyLibs "Libs" "popupmenu.library" "LIBS:")
  201.  
  202. (complete 100)
  203.  
  204. (exit)
  205.